home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / WRITE.C < prev    next >
Text File  |  2019-04-13  |  1KB  |  46 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 11 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16. /* WRITE MEMORY FUNCTION */
  17.  
  18. #INCLUDE <STDIO.H>
  19. #INCLUDE "DBUG.H"
  20.  
  21. VOID
  22. WRITE()
  23. █
  24.             ╒╔╬╘ C ;
  25.     EXTERN  ╒╔╬╘ POKE(), PEEK() ;
  26.     EXTERN  ┴╥╟╙ ALLARGS ;
  27.  
  28. #IFDEF ├64
  29.     ╨╧╦┼( ┴──╥(WRTBYTE), (╒╔╬╘)┬┘╘┼(WRTBYTE) ) ;
  30. #ELSE
  31.     POKE( ┬┴╬╦(WRTBYTE), (╒╔╬╘)┴──╥(WRTBYTE), (╒╔╬╘)┬┘╘┼(WRTBYTE) ) ;
  32. #ENDIF
  33.  
  34. #IFDEF ├64
  35.     IF( ( C = ╨┼┼╦( ┴──╥(WRTBYTE) ))
  36. #ELSE
  37.     IF( ( C = PEEK( ┬┴╬╦(WRTBYTE), (╒╔╬╘)┴──╥(WRTBYTE) ))
  38. #ENDIF
  39.           == (╒╔╬╘)┬┘╘┼(WRTBYTE) )
  40.     █
  41.         PRINTF("\NWRITE VERIFIED\N") ;
  42.     ▌
  43.     ELSE
  44.         PRINTF("\NPOSSIBLE WRITE ERROR, BYTE = %X\N",C) ;
  45. ▌
  46.